4 PRINTCHR$(142):   D$=""
5 FORI=1TO50
6 C$="[146]":IF I/2=INT(I/2)THEN C$=""
9 PRINT"[147]"
10 PRINTC$;D$;"[213][192][201][213][192][201] [176][192][201] [213][192][201]"
12 PRINTC$;D$;"[221] [221][221] [221] [221] [221] [221]  "
14 PRINTC$;D$;"[171][192][203][221][160][221][160][221][160][221][160][202][192][201]"
15 PRINTC$;D$;"[221]  [221] [221] [221] [221]   [221]"
16 PRINTC$;D$;"[221]  [202][192][203] [173][192][203] [202][192][203]"
17 FORJ=1 TO 30:NEXT J
20 NEXT I
115 REM START OF PROGRAM
116 DIM GS$(20)
117 BL$="                     [157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157]"
118 HL$="[192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157]"
119 D1$=CHR$(16)
120 D2$=CHR$(13)
121 D3$=CHR$(14)
122 D4$=CHR$(15)
123 MS$="PLEASE WAIT..."
124 E1$="[192][192][192][192][192][192][192][192][192][219][192][192][192][192][192][192][192][192][192][219][192][192][192][192][192][192][192][192][192][219][192][192][192][192][192][192][192][192][192][219]"
125 GOSUB 2130
126 END
130 :
140 REM SUBROUTINE INPUT PARSER
150 P1$="":PX=0:PFL=0
160 GET A$:PRINT" [157]";:IF A$=CHR$(13)OR A$=CHR$(20)ANDPX=0GOTO160
165 IF A$=CHR$(20)THENPX=PX-1:P1$=LEFT$(P1$,PX):PRINTA$;:GOTO 160
170 FORD=1TO40:NEXTD:PRINT"[146] [157]";A$;
180 IF A$=","THEN P1=VAL(P1$):PFL=2:
190 IF A$="."THEN P1=VAL(P1$):PFL=1:IF P1=0THEN PFL=3
200 IF PFL<>0 GOTO 225
210 P1$=P1$+A$:IFA$<>""THENPX=PX+1
220 GOTO160
225 RETURN
230 :
240 REM SUBROUTINE Y/N
250 GET Y1$:IF Y1$<>"Y"ANDY1$<>"N"THEN 250
260 YFL=2:IFY1$="Y"THENYFL=1
270 RETURN
280 :
290 REM SUBROUTINE RETURN TO MENU
300 PRINT"[147]BACK TO MENU (Y/N) ?"
310 GOSUB 250:RETURN
320 :
330 REM SUBROUTINE TO BLANK A LINE
340 PRINT"":  FOR IA=1 TO SL:PRINT"";:NEXT
350 PRINTBL$
360 RETURN
370 :
380 :
390 REM SUBROUTINE TO PRINT TITLES
400 PRINT#4,D2$D2$D2$
410 ON C3 GOTO 460,970,470,970,480
460 PRINT#4,D3$"SUMMARY STATISTICS"D4$:GOTO 490
470 PRINT#4,D3$"FREQUENCY HISTOGRAM"D4$:GOTO 490
480 PRINT#4,D3$"BAR GRAPH"D4$:GOTO 490
490 PRINT#4, D2$
500 RETURN
501 :
510 REM SUBROUTINE TO RUN THROUGH DATA BY LINK ORDER
520 I=1:J=1
530 IF PT%(I)=0 GOTO 680
540 IFPT%(I) >0 THENONVAL(C3$)GOSUB1690,980,1180,980,980,840
600 IFPT%(I)<0 THENONVAL(C3$)GOSUB1900,990,1280,990,1580,990
660 I=I+1
670 GOTO 530
680 RETURN
690 :
700 REM SUBROUTINE TO INITIALIZE TOTAL SUBROUTINE
710 PRINT"[147]"
720 FOR X=1 TO NC
730 ME(X)=0:TT(X)=0:NUM(X)=0:NEXT X
740 M8=0:M1=9E-30:M2=9E30
750 RETURN
760 :
770 REM SUBROUTINE TO INITIALIZE SUM. STAT SUBROUTINE
780 FOR X=1 TO NC
790 SS(X)=0:VA(X)=0:ST(X)=0
800 NEXT X
810 RETURN
820 :
830 :
840 REM SUBROUTINE TO CALCULATE TOTALS
850 PRINTMS$
860 FOR N=1 TO ND
870 IF OMD%(PT%(I),N)=1GOTO 920
880 IF MTRX(PT%(I),N)>M1THEN M1=MTRX(PT%(I),N)
890 IF MTRX(PT%(I),N)<M2 THEN M2 = MTRX(PT%(I),N)
900 TT(J)=TT(J)+MTRX(PT%(I),N)
910 NUM(J)=NUM(J)+1
920 NEXT N
930 IF PT%(I+1)<0 THEN ME(J)=TT(J)/NUM(J)
940 IF ME(J)>M8 THEN M8=ME(J)
950 RETURN
960 :
970 RETURN :REM THIS IS A DUMMY SUBROUTINE
980 I=I+1:RETURN:REM ALMOST A DUMMY SUBROUTINE
990 J=J+1:RETURN:REM SAME AS ABOVE
1000 :
1010 :
1020 REM SUBROUTINE TO PRINT LABELS
1030 PRINT"VAR: ";VP$
1040 PRINT"LEVEL: ";LP$(J) ;D2$
1050 RETURN
1060 :
1070 REM SUBROUTINE TO PREPARE HISTOGRAM PARAMETERS
1080 PRINT"[147]HISTOGRAM":PRINTHL$
1090 PRINT"GRAPH RANGE:":PRINTHL$
1091 PRINT"MIN",M2
1100 PRINT "MAX",M1:PRINT"USE THESE (Y/N)?"
1110 GOSUB 250:IF YFL=1GOTO1140
1120 INPUT"MIN. VALUE";M2
1130 INPUT"MAX. VALUE";M1
1140 PRINT"":INPUT "NO. INTERVALS (<=20)";NI
1150 I2=(M2-M1)/NI
1160 RETURN
1170 :
1180 REM SUBROUTINE TO PREPARE HISTOGRAM
1190 FOR N=1 TO ND
1200 IF OMD%(PT%(I),N)=1 GOTO 1250
1210 Z1=INT((MTRX(PT%(I),N)-M1)/I2)+1
1220 IF MTRX(PT%(I),N)>M1 GOTO 1250
1230 IF MTRX(PT%(I),N)<=M2GOTO 1250
1240 GS$(Z1)=GS$(Z1)+"[166]"
1250 NEXT N
1260 RETURN
1270 :
1280 REM SUBROUTINE TO PRINT HISTOGRAM
1290 CMD 4:GOSUB 1020
1300 PRINT#4,D1$ "20" "FREQUENCY "
1310 PRINT#4,D1$"200"D1$"3010"D1$"4020"D1$"5030"D1$"6040"
1320 PRINT#4,M1;">= ";D1$ "20" ;"[219]";E1$
1330 FOR K=1 TO NI
1340 PRINT#4,D1$ "20" "[170]";GS$(K);LEN(GS$(K))
1350 PRINT#4,"> ";M1+K*I2;">= ";D1$ "20" "[179]"
1360 NEXT K
1370 J=J+1:PRINT#4,D2$
1380 FOR U=1 TO 20:GS$(U)="":NEXT U
1390 RETURN
1400 :
1410 REM SUBROUTINE TO CHOOSE B GRAPH MAX
1420 PRINT"[147]GRAPH RANGE :":PRINTHL$
1421 PRINT"MIN",0:PRINT"MAX",M8
1430 PRINT"USE THESE   (Y/N)
1440 [141] 250:[139]YFL[178]1[137]1460
1450 [133]"NEW MAX";M8
1460 [142]
1470 :
1480 [143] SUBROUTINE TO PRINT BAR GRAPH MARGIN
1490 [152]4,"VARIABLE :"
1500 [152]4,VP$D2$D1$"35MEAN DATA VALUE"
1510 I2[178]M8[173]40
1520 [152]4,D1$"35"I2[172]10D1$"55"I2[172]30
1530 [152]4,D1$"25"0;D1$"35^"D1$"45"I2[172]20D1$"55^"D1$"65"I2[172]40
1540 [152]4,"LEVEL :";
1550 [152]4,D1$"25(null)"; E1$ D2$
1560 [142]
1570 :
1580 [143] SUBROUTINE TO PRINT BAR GRAPH
1590 [152]4,LP$(J);D1$;"25+";
1600 [139]ME(J)[178]0[167][152]4,ME(J):[137]1630
1610 [129] P[178]1 [164] ME(J)[173]I2:[152]4,"SPC(";:[130]:[152]4,ME(J)
1620 [139] LI[178]0[137] 1640
1630 [139] [181](J[173]LI)[178]J[173]LI[167][141] 1550
1640 J[178]J[170]1
1650 [142]
1660 :
1670 :
1680 [143] SUBROUTINE TO CALCULATE SUMMARY STATS
1690 [153]"LOAD";MS$
1700 [129] N[178]1 [164] ND
1710 [139] OMD%(PT%(I),N)[178]1 [137] 1740
1720 A[178]MTRX(PT%(I),N)[171]ME(J)
1730 SS(J)[178]SS(J)[170](A[172]A)
1740 [130] N
1750 [139] PT%(I[170]1) [177]0 [137]1790
1760 [139] NUM(J)[178]1 [167] VA(J)[178]0:[137] 1780
1770 VA(J)[178]SS(J)[173](NUM(J)[171]1)
1780 ST(J)[178][186](VA(J))
1790 [142]
1800 :
1810 [143] SUBROUTINE TO CHOOSE SUMMARY STATS. OUTPUT
1820 [153]"LOADOUTPUT TO :":[153]HL$
1830 [153]"1. SCREEN"
1831 [153]"2. PRINTER"
1840 [161]SO$:[139]SO$[179][177]"1"[175]SO$[179][177]"2"[137] 1840
1850 [139] SO$[178]"1" [167] [153]"LOAD":[137] 1880
1860 [141] 400:[152]4,"VARIABLE :"D2$;VP$ D2$"LEVEL :";
1870 [152]4,D1$"20#OBS."D1$"28TOTAL"D1$"37MEAN"D1$"51VARIANCE"D1$"65STD. DEV."
1880 [142]
1890 :
1900 [143] SUBROUTINE TO BRANCH TO OUTPUT DEVICE
1910 [145][197](SO$)[141] 2010,1950
1930 [142]
1940 :
1950 [143] SUBROUTINE TO PRINTER
1960 [152]4,LP$(J)
1970 [152]4,D1$"20"NUM(J);D1$"28"TT(J);D1$"37"ME(J);D1$"51"VA(J);D1$"65"ST(J)
1980 J[178]J[170]1
1990 [142]
2000 :
2010 [143] SUBROUTINE TO SCREEN
2015 [153]"LOAD"
2020 [141]  1020:[153]HL$
2030 [153]"TOTAL    ";TT(J)
2040 [153]"MEAN     ";ME(J)
2050 [153]"VARIANCE ";VA(J)
2060 [153]"STD DEV  ";ST(J)
2070 [153]"PRESS <RETURN>"
2080 [161] A$
2090 [139] A$[179][177][199](13)[137] 2080
2100 J[178]J[170]1
2110 [142]
2120 :
2130 [143] MAIN MENU
2140 [153]"LOAD":[151] 214,3 :[153]:[153]"PODSWAIT"
2150 [153]"  1.WAIT DATA"
2160 [153]"  2.WAIT STATISTICS"
2170 [153]"  3.WAIT EXIT PRG."
2180 [161] C1$
2190 [139] [197](C1$)[179]1 [176] [197](C1$)[177]3 [167] 2180
2200 [145] [197](C1$)[141] 2250,2430
2220 [139] [197](C1$)[179][177]3 [137] 2130
2230 [142]
2240 :
2250 [143] 1. MENU
2260 [153]"LOAD":[151] 214,3:[153]:[153]"      DATA WAIT"
2270 [153]"  1.WAIT  NEW"
2280 [153]"  2.WAIT  OLD"
2290 [153]"  3.WAIT  CHANGE"
2300 [153]"  4.WAIT  SAVE"
2310 [153]"  5.WAIT  GROUP DATA"
2320 [153]"  6.WAIT  MAIN MENU"
2330 [161] C2$
2340 [139] [197](C2$)[179]1 [176] [197](C2$)[177]6 [137]2330
2345 [141]300:[139]YFL[178]1[167]2260
2350 [145] [197](C2$)[141] 2630,4190,3540,4190,3080
2400 [139] [197](C2$)[179][177]6 [137] 2250
2410 [142]
2420 :
2430 [143] 2. MENU
2440 [139] F1[178]0[167] C3$[178]"6":[141] 700:[141] 510:F1[178]1
2450 [153]"LOAD":[151] 214,3:[153]:  [153]"      STATISTICSWAIT"
2460 [153]"  1.WAIT SUMMARY STATS"
2470 [153]"  2.WAIT "
2480 [153]"  3.WAIT HISTOGRAM"
2490 [153]"  4.WAIT "
2500 [153]"  5.WAIT BAR GRAPH
2510 PRINT"  6.[146] MAIN MENU
2520 [161] C3$
2530 [139] [197](C3$)[179]1 [176] [197](C3$)[177]6 [137] 2520
2540 C3[178][197](C3$)
2550 [139]C3[178]1[167][159] 4,4:[141]1810:[141]770:[141]510::[160] 4
2560 [139] C3[178]2 [167] [141] 970
2570 [139] C3[178]3 [167] [159] 4,4:[141] 1070:[141]400:[141] 510:[160] 4
2580 [139] C3[178]4 [167]   [141] 510
2590 [139]C3[178]5[167]:[141]1410:[159]4,4:[141]400:[141]1480:[141]510::[160] 4
2600 [139] [197](C3$)[179][177]6 [137] 2430
2610 [142]
2620 :
2630 [143] SUBROUTINE TO INPUT NO. OF VAR.,LEVELS,OBS.,AND LABELS
2670 [153]"LOADINPUT   NUMBER   OF   VARIABLES (<=5)"
2680 [133] NV
2690 [134] LV$(NV),NL%(NV[170]1)
2700 [129] I[178]1 [164] NV
2710 [153]"LOADLABEL FOR VARIABLE ";I
2720 [133] LV$(I):LV$(I)[178]LV$(I)[170]" "
2730 [153]"HOW MANY LEVELS IN    VARIABLE ";LV$(I)
2740 [133] NL%(I)
2750 [139] MX[179]NL%(I)[167] MX[178] NL%(I)
2760 [130] I
2770 A[178]1
2780 [129] I[178]1 [164] NV
2790 A[178]A[172]NL%(I)
2800 [130] I
2810 [134] LP$(A)
2820 [134] LL$(5,MX)
2830 [129] I[178]1 [164] NV
2840 [153]"LOAD VARIABLE ";LV$(I):[153]HL$
2850 [129] J[178]1 [164] NL%(I)
2860 [153]"LABEL FOR LEVEL ";J:[133]LL$(I,J):LL$(I,J)[178]LL$(I,J)[170]" "
2870 [130] J
2880 [130] I
2882 [129] I[178]1 [164] NV:L1%(I)[178]I:[130] I
2884 [141] 5020
2890 NC[178]1
2900 [129] I[178]1 [164] NV
2910 NC[178]NC[172]NL%(I)
2920 [130] I
2930 [134] ME(NC),TT(NC),NUM(NC),SS(NC),VA(NC),ST(NC)
2940 [153]" LOADHOW MANY DATA POINTS  PER CELL"
2950 [133] ND
2960 [134] MTRX(NC,ND),PT%(NC[172]2[170]2),OMD%(NC,ND)
2970 [129] I[178]1 [164] NC
2980 [153]"LOADCELL NO.";I:[153]HL$:[153]LP$(I):[153]HL$
2990 [129] N[178]1 [164] ND
3000 [153]"DATA#";N;
3010 [133] TMP$:[139] TMP$[178]"*" [167] OMD%(I,N)[178]1[137] 3030
3020 MTRX(I,N)[178][197](TMP$)
3030 [139] N[173]15[178][181](N[173]15)[167][153]"LOADCELL NO.";I:[153]HL$:[153]LP$(I):[153]HL$
3040 [130] N
3050 [130] I
3060 [142]
3070 :
3080 [143] SUBROUTINE TO INPUT LINK ORDER
3090 [153]"LOAD    VARIABLES":[153]HL$
3100 [129] I[178]1 [164] NV
3110 [153]I;"CMD.";LV$(I)
3120 [130] I
3130 [153]HL$
3140 [153]"INPUT VARIABLE ORDER."
3150 [153]"INPUT   VARIABLE  NO. FOLLOWED BY A PERIOD."
3160 [153]"INPUT '0.' FOR END.":[153]HL$
3165 NG[178]1
3175 I[178]1
3180 [153]: [153]"#";I;" ORDER  ";
3182 [141] 150:[145] PFL [137] 3184,3186,3200
3184 [139] I[177]NV [167] [153]"LOADREGROUP DATA":[129]IA[178]1[164]250:[130]IA:[137]3090
3185 [137]3190
3186 [153]"ONON":[137]3180
3190 KY%(I)[178]P1:[139]NL%(KY%(I))[179][177]0[167] NG[178]NG[172]NL%(KY%(I))
3200 LI[178]NL%(KY%(I[171]1)):[139]PFL[178]3[137]3220
3210 [139] I[179][178]NV  [167] I[178]I[170]1:[137] 3180
3220 CG[178]NC[173]NG
3230 VP$[178]""
3240 [129] I[178]1 [164] 5:VP$[178]VP$[170]LV$(KY%(I)):[130] I
3250 [153]"LOADDATA GROUPING : ":[153]HL$
3260 [153]"SEPERATE CELLS WITHIN GROUPS BY COMMA."
3270 [153]"END  GROUPS   WITH    PERIODS."
3280 [153]"END GROUPING WITH '0.'"
3290 [153]"YOU HAVE";NC; "CELLS."
3300 [153]"YOU NEED";NG;"GROUPS"
3305 [153]"WITH";CG;"CELLS/GROUP.":[153]HL$
3310 W[178]1:I[178]1:[153]"GROUP";W,
3320 [141] 150
3330 PT%(I)[178]P1
3340 [145] PFL [137] 3350,3360,3370
3350 I[178]I[170]1:PT%(I)[178][171]9:W[178]W[170]1:[153]: [153]"GROUP";W,
3360 I[178]I[170]1:[139] I[177]NC[170]NG[170]1 [167][153]"LOADREGROUP DATA":[129]Z[178]1[164]250:[130]Z:[137]3250
3365 [137] 3320
3370 [153]"LOAD";MS$
3380 [129] I[178]1[164]NV:L1%(I)[178]KY%(I):[130]I
3390 [141] 5020
3510 F1[178]0
3520 [142]
3530 :
3540 [143] SUBROUTINE TO CHANGE DATA
3550 [153]"LOAD"
3560 [153]"   1. CHANGE DATA"
3570 [153]"   2. CHANGE LABEL"
3580 [161]CF$:[139] [197](CF$)[179][177]1 [175][197](CF$)[179][177]2 [137] 3580
3590 [145] [197](CF$)[141] 3630,3790
3610 [142]
3620 :
3630 [143] SUBROUTINE TO SHOW DATA
3640 [153]"LOAD1. SINGLE"
3641 [153]"2. CONTINUOUS"
3650 [161] SE$:[139] SE$[179][177]"1"[175]SE$[179][177]"2"[167] [137] 3650
3660 [133]"  START AT CELL...";S
3670 [133]"  END AT CELL...";E:[139]E[177]NC[167]E[178]NC
3675 [129]I[178]1[164]NV:L1%(I)[178]I:[130]I:[141] 5020
3680 [129] I[178]S [164] E
3690 [153]"LOADCELL NO. ";I:[153]LP$(I):[153]HL$
3700 [129] J[178]1 [164] ND
3710 [153]"DATA#";J,:[139] OMD%(I,J)[178]1[167][153]:[137]3730
3720 [153]MTRX(I,J)
3730 [139] [181](J[173]15)[178]J[173]15[167] [141] 3960:[153]"LOADCELL NO. ";I:[153]LP$(I):[153]HL$
3740 [130] J
3750 [139] [181](J[173]15)[179][177]J[173]15 [167] [141] 3960
3760 [130] I
3770 [142]
3780 :
3790 [143] SUBROUTINE TO SHOW LABELS
3800 [153]"LOADVARIABLES":[153]HL$
3810 J[178]0
3820 [129] I[178]1 [164] NV
3830 [153]I;" ";LV$(I)
3840 [130] I
3850 [141] 3960
3860 [129] I[178]1 [164] NV
3870 [153]"LOADVARIABLE: ";LV$(I):[153]HL$
3880 [129] J[178]1 [164] NL%(I)
3890 [153]J;" ";LL$(I,J)
3900 [130] J
3910 [141] 3960
3920 [130] I
3930 [142]
3940 :
3950 :
3960 [143] SUB ROUTINE CHANGE
3970 SL[178]20:[141]340:[153]"CHANGE   (Y/N)":[141] 250
4000 [139]YFL[178]2 [167] 4170
4010 SL[178]20:[141]340:[133]"WHICH ENTRY";EN
4015 [139] EN[177]ND [167] [137] 3970
4020 SL[178]19:[141]340:[153]"ENTRY";EN
4030 [139] [197](CF$)[178]2[137]4110
4040 SL[178]20:[141]340:[133]"NEW VALUE";TMP$:SL[178]19:[141]340:SL[178]20: [141]340
4050 [139] TMP$[178]"S" [167] [137] 4160
4060 [139] TMP$[178]"*" [167] OMD%(I,EN)[178]1:[137] 4080
4070 MTRX(I,EN)[178][197](TMP$):OMD%(I,EN)[178]0
4080 [139] SE$[178]"2"[167] EN[178]EN[170]1:[139] EN[177]ND[167] [137] 4170
4090 [139] SE$[178]"2" [167] [137] 4020
4100 [137] 4160
4110 [139] J[178]0 [137] 4140
4120 SL[178]20:[141]340:[133]"NEW LABEL";LL$(I,EN):LL$(I,EN)[178]LL$(I,EN)[170]" "
4130 SL[178]20:[141]340:[137]4160
4140 SL[178]20:[141]340:[133] "NEW LABEL";LV$(EN):LV$(EN)[178]LV$(EN)[170]" "
4150 SL[178]20:[141]340:[137]4160
4160 [141] 3960
4170 [142]
4180 :
4190 [143] SUBROUTINE TO CHOOSE TAPE/DISC/MENU
4200 [153]"LOAD1. TAPE"
4201 [153]"2. DISC"
4210 [161] A$:[139] [197](A$)[179]1[176][197](A$)[177]2 [137] 4210
4230 F2[178]0
4240 [153]:[133] "FILENAME";FL$
4250 [145] [197](C2$)[141] 970,4610,970,4320
4290 [139] F2[178]1[167][137]4240
4300 [142]
4310 :
4320 [143] SUBROUTINE TO SAVE
4330 [139] [197](A$)[178]1  [137] 4350
4340 [139] [197](A$)[178]2  [137] 4360
4350 [159] 1,1,2,FL$ :[137] 4390
4360 [159]15,8,15
4370 [159] 1,8,8,"0:"[170]FL$[170]",S,W"
4380 [132]15,A:[139]A[178]63[167][152]15,"I":[160] 1:[160] 15:F2[178]1:[137] 4590
4390 [152]1,NV
4400 [129] I[178]1 [164] NV
4410 [152]1,LV$(I)
4420 [152]1,NL%(I)
4430 [130] I
4440 [129] I[178]1 [164] NV
4450 [129] J[178]1 [164] NL%(I)
4460 [152]1,LL$(I,J)
4470 [130] J:[130] I
4480 [152]1,NC
4490 [152]1,ND
4500 [129] I[178]1 [164] NC
4510 [129] N[178]1 [164] ND
4520 TMP$[178][196](MTRX(I,N))
4530 [139] OMD%(I,N)[178]1 [167] TMP$[178]"*"
4540 [152]1,TMP$
4550 [130] N
4560 [130] I
4570 [160] 1:[160] 15
4580 F2[178]0
4590 [142]
4600 :
4610 [143] SUBROUTINE TO LOAD OLD
4620 [139] [197](A$)[178]1 [137] 4650
4630 [139] [197](A$)[178]2 [137] 4660
4640 [153]"LOAD"
4650 [159] 1,1,0,FL$:[137] 4690
4660 [159] 15,8,15
4670 [159] 1,8,8,"0:"[170]FL$[170]",S,R"
4680 [132]15,A:[139]A[178]62[167][152]15,"I":[160] 1:[160]15:F2[178]1:[137]5010
4690 [132]1,NV
4700 [134] LV$(NV),NL%(NV[170]1)
4710 [129] I[178]1 [164] NV
4720 [132]1,LV$(I)
4730 [132]1,NL%(I)
4740 [139] MX[179]NL%(I)[167]MX[178]NL%(I)
4750 [130] I
4760 A[178]1
4770 [129] I[178]1 [164] NV
4780 A[178]A[172]NL%(I)
4790 [130] I
4800 [134] LP$(A)
4810 [134]LL$(5,MX)
4820 [129] K[178]1 [164] 5:LL$(K,0)[178]" ":[130] K
4830 [129] I[178]1 [164] NV
4840 [129] J[178]1 [164] NL%(I)
4850 [132]1,LL$(I,J)
4860 [130] J
4870 [130] I
4880 [132]1,NC
4890 [134] ME(NC),TT(NC),NUM(NC),SS(NC),VA(NC),ST(NC)
4900 [132]1,ND
4910 [134] MTRX(NC,ND),PT%(NC[172]2[170]1),OMD%(NC,ND)
4920 [129] I[178]1 [164] NC
4930 [129] N[178]1 [164] ND
4940 [132]1,TMP$
4950 [139] TMP$[178]"*" [167] OMD%(I,N)[178]1:[137]4970
4960 MTRX(I,N)[178][197](TMP$)
4970 [130] N
4980 [130] I
4990 [160] 1:[160] 15
5000 F2[178]0
5010 [142]
5015 :
5020 [143] SUBROUTINE TO ORGANIZE LABELS
5021 N[178]1:J[178]0:K[178]0:L[178]0:M[178]0
5023 [129] I[178]1 [164] NL%(L1%(1))
5025 [139] NV[177]1 [167] [129] J[178]1 [164] NL%(L1%(2))
5027 [139] NV[177]2 [167] [129] K[178]1 [164] NL%(L1%(3))
5029 [139] NV[177]3 [167] [129] L[178]1 [164] NL%(L1%(4))
5030 :
5031 [139] NV[177]4 [167] [129] M[178]1 [164] NL%(L1%(5))
5033 LP$(N)[178]LL$(L1%(1),I)[170]LL$(L1%(2),J)[170]LL$(L1%(3),K)[170]LL$(L1%(4),L)[170]LL$(L1%(5),M)
5035 N[178]N[170]1
5037 [139] NV[177]4[167] [130] M
5039 [139] NV[177]3[167] [130] L
5041 [139] NV[177]2 [167] [130] K
5043 [139] NV[177]1 [167] [130] J
5045 [130] I
5048 [142]